home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / frmhole.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  5.5 KB  |  159 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHole 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Holes"
  5.    ClientHeight    =   4140
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5460
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   276
  13.    ScaleMode       =   0  'User
  14.    ScaleWidth      =   364
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin VB.TextBox txtThread 
  17.       Height          =   288
  18.       Left            =   1785
  19.       TabIndex        =   5
  20.       Top             =   3195
  21.       Width           =   612
  22.    End
  23.    Begin VB.ListBox List1 
  24.       Height          =   1425
  25.       ItemData        =   "frmHole.frx":0000
  26.       Left            =   105
  27.       List            =   "frmHole.frx":0013
  28.       TabIndex        =   4
  29.       Top             =   510
  30.       Width           =   2310
  31.    End
  32.    Begin VB.CommandButton cmdCancel 
  33.       Caption         =   "Cancel"
  34.       Height          =   375
  35.       Left            =   2610
  36.       TabIndex        =   3
  37.       Top             =   3630
  38.       Width           =   1200
  39.    End
  40.    Begin VB.CommandButton cmdOK 
  41.       Caption         =   "OK"
  42.       Height          =   375
  43.       Left            =   4140
  44.       TabIndex        =   2
  45.       Top             =   3615
  46.       Width           =   1200
  47.    End
  48.    Begin VB.TextBox txtdd 
  49.       Height          =   285
  50.       Left            =   1785
  51.       TabIndex        =   1
  52.       Top             =   2235
  53.       Width           =   615
  54.    End
  55.    Begin VB.TextBox txtLen 
  56.       Height          =   285
  57.       Left            =   1785
  58.       TabIndex        =   0
  59.       Top             =   2715
  60.       Width           =   615
  61.    End
  62.    Begin VB.Image PicPreview 
  63.       BorderStyle     =   1  'Fixed Single
  64.       Height          =   3300
  65.       Left            =   2610
  66.       Stretch         =   -1  'True
  67.       Top             =   135
  68.       Width           =   2700
  69.    End
  70.    Begin VB.Label Label8 
  71.       Alignment       =   1  'Right Justify
  72.       Caption         =   "Diameter (d) :"
  73.       Height          =   255
  74.       Left            =   345
  75.       TabIndex        =   9
  76.       Top             =   2235
  77.       Width           =   1335
  78.    End
  79.    Begin VB.Label Label7 
  80.       Alignment       =   1  'Right Justify
  81.       Caption         =   "Lenght (L) :"
  82.       Height          =   255
  83.       Left            =   705
  84.       TabIndex        =   8
  85.       Top             =   2715
  86.       Width           =   975
  87.    End
  88.    Begin VB.Label Label6 
  89.       Alignment       =   1  'Right Justify
  90.       Caption         =   "Length of thread (Lt) :"
  91.       Height          =   255
  92.       Left            =   105
  93.       TabIndex        =   7
  94.       Top             =   3195
  95.       Width           =   1575
  96.    End
  97.    Begin VB.Label Label4 
  98.       Caption         =   "Hole Type :"
  99.       Height          =   255
  100.       Left            =   120
  101.       TabIndex        =   6
  102.       Top             =   120
  103.       Width           =   975
  104.    End
  105. Attribute VB_Name = "frmHole"
  106. Attribute VB_GlobalNameSpace = False
  107. Attribute VB_Creatable = False
  108. Attribute VB_PredeclaredId = True
  109. Attribute VB_Exposed = False
  110. '/******************************************************************/
  111. '/*                                                                */
  112. '/*                      TurboCAD for Windows                      */
  113. '/*                   Copyright (c) 1993 - 2001                    */
  114. '/*             International Microcomputer Software, Inc.         */
  115. '/*                            (IMSI)                              */
  116. '/*                      All rights reserved.                      */
  117. '/*                                                                */
  118. '/******************************************************************/
  119. ' Storage for read-only property indicating whether
  120. ' or not the dialog box was cancelled. Default is
  121. ' False. Note that the declaration is Private, so
  122. ' that the value cannot be set from the OLE client
  123. ' application. The client reads the value using the
  124. ' DialogCancelled property.
  125. Private blnDialogCanceled As Boolean
  126. ' Read-only property indicating cancellation of the
  127. ' dialog.
  128. Property Get DialogCanceled() As Boolean
  129.     DialogCanceled = blnDialogCanceled
  130. End Property
  131. Private Sub cmdCancel_Click()
  132.     ' Set the value of the read-only property that
  133.     ' tells the caller the dialog was cancelled.
  134.     blnDialogCanceled = True
  135.     Me.Hide
  136. End Sub
  137. Private Sub cmdOK_Click()
  138.     Me.Hide
  139. End Sub
  140. Private Sub Form_Load()
  141. Dim i%, iDef%
  142.     For i = 0 To List1.ListCount - 1
  143.         If List1.List(i) = TypeH Then iDef = i
  144.     Next i
  145.     List1.ListIndex = iDef
  146.     If List1.Text = "Hole1" Then PicPreview.Picture = LoadResPicture(101, 0)
  147.     If List1.Text = "Hole2" Then PicPreview.Picture = LoadResPicture(102, 0)
  148.     If List1.Text = "Hole3" Then PicPreview.Picture = LoadResPicture(103, 0)
  149.     If List1.Text = "Hole4" Then PicPreview.Picture = LoadResPicture(104, 0)
  150.     If List1.Text = "Hole5" Then PicPreview.Picture = LoadResPicture(105, 0)
  151. End Sub
  152. Private Sub List1_Click()
  153.     If List1.Text = "Hole1" Then PicPreview.Picture = LoadResPicture(101, 0)
  154.     If List1.Text = "Hole2" Then PicPreview.Picture = LoadResPicture(102, 0)
  155.     If List1.Text = "Hole3" Then PicPreview.Picture = LoadResPicture(103, 0)
  156.     If List1.Text = "Hole4" Then PicPreview.Picture = LoadResPicture(104, 0)
  157.     If List1.Text = "Hole5" Then PicPreview.Picture = LoadResPicture(105, 0)
  158. End Sub
  159.